home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / dframe21.arc / EXINPUT.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-03-22  |  618 b   |  25 lines
  1. 'Program to demonstrate using IN.PUT as an INKEY$ function
  2.  
  3. ' $INCLUDE: '\INC\DFRAME.INC'
  4.  
  5. PROGNAME$ = "Input Example"
  6. VERSION$ = " v1.0"
  7. EXENAME$ = "EXINPUT"
  8. INITIALIZE
  9. CLOSE #1
  10.  
  11. ' We'll assume there is some code above this, so now we want an answer.
  12. DIS.PLAY "Your answer? > ", LGREEN, BLACK, 0, 0, 10, 3, 0, 0, 0
  13.  
  14. ' Get a 5 character maximum response, blue on white, and allow 60 seconds
  15. ' to answer.
  16. IN.PUT 5, 60, LBLUE, WHITE
  17.  
  18. ' Now we'll DIS.PLAY the answer. This will be "-1" if a timeout occurred.
  19. DIS.PLAY RESPONSE$, LRED, BLACK, 0, 0, 15, 10, 1, 0, 0
  20. ENTER
  21. CLRSCRN
  22. EXIT.DOOR "Y"
  23. END
  24.  
  25.